home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / PRINT.TSL < prev    next >
Encoding:
Text File  |  1997-01-02  |  1.2 KB  |  43 lines
  1. % -----------------------------------------------------------------------------
  2. % Print demonstration                                  *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.00
  6. %  Filename         : PRINT.TSL
  7. %  Company          : SerWiz Comm
  8. %  Programmer       : Bo Bendtsen
  9. %  Module created   : 02 Jan 1997
  10. %  Latest revision  : 02 Jan 1997
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Demonstrates how to print
  13. %
  14. % -----------------------------------------------------------------------------
  15.  
  16. Clearscreen
  17.  
  18. % Printer file = 1
  19. Set Printer=1
  20.  
  21. % Open textfile (printer) in write mode
  22. OpenText Printer,"PRN",2
  23.  
  24. If IOResult=0
  25.   PrintLn "Printer online, printing C:\CONFIG.SYS"
  26.   OpenText 2,"C:\CONFIG.SYS",0
  27.   If IOResult=0
  28.     While EndofTextFile(2)=0
  29.       WriteLnText Printer,readtext(2)
  30.     EndWhile
  31.     CloseText 2
  32.     % Send FormFeed to Printer (new page)
  33.     WriteText Chr(12)
  34.   Else
  35.     PrintLn "Could not find C:\CONFIG.SYS, error = ",IOResult
  36.   Endif
  37.   CloseText Printer
  38.   PrintLn "Done"
  39. Else
  40.   PrintLn "Printer error = ",IOResult
  41. Endif
  42.  
  43.